home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / browser / ibrowsescripts / rexx / quitnet.ibrx < prev    next >
Text File  |  1998-05-24  |  803b  |  26 lines
  1. /*  $VER: quitnet.ibrx 1.0     
  2.     Made by Sören Forsberg : sorenf@hem1.passagen.se
  3.   
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. say show('Ports')
  9.  
  10. IF show('Ports','AMIRC.1') THEN ADDRESS 'AMIRC.1' 'QUIT'
  11. IF show('Ports','AMIRC.2') THEN ADDRESS 'AMIRC.2' 'QUIT'
  12. IF show('Ports','AMIRC.3') THEN ADDRESS 'AMIRC.3' 'QUIT'
  13. IF show('Ports','AMIRC.4') THEN ADDRESS 'AMIRC.4' 'QUIT'
  14. IF show('Ports','AMIRC.5') THEN ADDRESS 'AMIRC.5' 'QUIT'
  15. IF show('Ports','AMIRC.6') THEN ADDRESS 'AMIRC.6' 'QUIT'
  16. IF show('Ports','AMIRC.7') THEN ADDRESS 'AMIRC.7' 'QUIT'
  17. IF show('Ports','AMIRC.8') THEN ADDRESS 'AMIRC.8' 'QUIT'
  18.  
  19.  
  20. IF show('Ports','MIAMI.1') THEN ADDRESS 'MIAMI.1' 'QUIT'
  21.  
  22. IF show('Ports','IBROWSE') THEN ADDRESS 'IBROWSE' 'QUIT'
  23.  
  24. IF show('Ports','YAM') THEN ADDRESS 'YAM' 'QUIT'
  25.  
  26. IF show('Ports','AMFTP.1') THEN ADDRESS 'AMFTP.1' 'QUIT'